home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
edit
/
aurora2.zip
/
KEYCODES.AML
< prev
next >
Wrap
Text File
|
1995-01-26
|
2KB
|
63 lines
// ───────────────────────────────────────────────────────────────────
// The Aurora Editor v2.0
// Copyright 1993-1995 nuText Systems. All Rights Reserved Worldwide.
//
// Display keycodes
//
// This macro displays various keycodes for each key pressed
// ───────────────────────────────────────────────────────────────────
include bootpath "define.aml"
var keycode
// create main window with titles
createwindow
setwinobj
setframe ">b"
setcolor border_color color white on gray
setcolor text_color color black on gray
settitle "Display Keycodes - press <esc> twice to exit"
setwinctrl '≡'
sizewindow 6 5 72 20 "ad"
setborder "1i"
setshadow 2 1
setcolor text_color color brightgreen on gray
writeline " Keycode Hexcode Scancode Ascii Hex Char Keyname"
// create scrollable subwindow
createwindow
sizewindow 0 1 0 0 "rw1" '' (getprevwin)
setcolor text_color color black on gray
showcursor 80 90
repeat
lastcode = keycode // save last keycode
keycode = getkey 's' // get next key with scancode
asciicode = keycode & 0ffh // get ascii code from keycode
keyname = getkeyname keycode // get keyname from keycode
if lastcode then
writeline
end
writestr
(pad keycode 8) + // display keycode
(pad (base keycode 16) 9) + // display hexcode
(pad (keycode shr 8) 10) + // display scancode
(pad asciicode 7) + // display asciicode (if any)
(pad (base asciicode 16) 5) + // display asciicode (if any)
(pad (char asciicode) 6) + // display key char (if any)
" " + keyname // display keyname
// exit if <esc> pressed twice or mouse button pressed
until keycode == <esc> and lastcode == keycode or
keycode == <button>
// destroy subwindow and main window
destroywindow
destroywindow